1 REM ********************************
2 REM *   IRRGAERTEN UND MAEUSE III  *
3 REM * <C> 1985 BEI MICHAEL NICKLES *
4 REM ********************************
5 POKE53280,0:POKE53281,0:PRINT"[147]MAUS III[146]"
10 M%=1000:DIMM(M%,3):REM GEDAECHTNIS
20 RI$(0)="NORDEN"
22 RI$(1)="OSTEN"
24 RI$(2)="SUEDEN"
26 RI$(3)="WESTEN"
30 MZ=1           :REM GED. ZEIGER
40 FORI1=0TOM%    :REM GEDAECHTNIS
42 : FORI2=0TO3   :REM LOESCHEN
44 :   M(I1,I2)=-1
46 : NEXTI2
48 NEXTI1
100 PRINT"BIITE GEBEN SIE DIE ANFANGSRICHTUNG EIN:
110 [153]"NORDEN=1
120 PRINT"OSTEN =2
130 [153]"SUEDEN=3
140 PRINT"WESTEN=4
150 [161]I$:[139][197](I$)[178]0[176][197](I$)[177]3[167]150
160 X[178][197](I$)[171]1:[137]1141
1000 [143] HAUPTPROGRAMM ---------------------------------------------------------
1001 :
1100 [143] RICHTUNG AUSPROBIEREN
1101 :
1110 X[178]0            :[143] 1. VERSUCH = N
1115 :  [141]5000   :[143] SACKGASSE ?
1120 :  [139]M(MZ,X)[179][177][171]1[167]1200
1125 :  [153]"KANN ICH NACH ";RI$(X);" GEHEN ?";            :[143] X PROBIEREN
1130 :  [161]I$:[139]I$[179][177]"J"[175]I$[179][177]"N"[175]I$[179][177]" "[167]1130
1131 :  [139]I$[178]" "[167]10000
1135 :  [139]I$[178]"N"[167][153]" NEIN.":M(MZ,X)[178][171]2:X[178]X[170]1:[137]1115 :[143] X GEHT NICHT
1140 [153]" JA."    :[143] X GEHT
1141 :  M(MZ,X)[178]MZ[170]1:[143] RICHT. MERKEN
1142 :  MZ[178]MZ[170]1     :[143] BEWEGEN
1144 :  [139]MZ[177]M%[167][153]"HABE MICH VERIRRT - GEBE AUF !":[128]:[143] MEMORY FULL
1146 :    G[178]X:[141]6000:X[178]G                                 :[143] GEGENBEFEHL
1148 :    M(MZ,X)[178]MZ[171]1
1150 :              :[143] MERKEN
1152 :    G[178]X:[141]6000:X[178]G                                 :[143] GEGENBEFEHL
1160 :  [137]1000
1200 :  [139]M(MZ,X)[178][171]2[167]X[178]X[170]1:[137]1115                      :[143] X GEHT NICHT
1210 :  [139]M(MZ,X)[177][171]1[167]X[178]X[170]1:[137]1115                      :[143] PRIORITAET !!!
5000 [143] FESTSTELLEN OB MAUS IN SACKGASSE IST (3 * -2) -------------------------
5001 :
5010 IC[178]0
5015 [129]N[178]0[164]3
5020 : [139]M(MZ,N)[178][171]2[167]IC[178]IC[170]1
5030 [130]N
5040 [139]IC[179]3[167][142]
5050 [139]IC[178]4[167][153]"ICH LASSE MICH NICHT REINLEGEN !":[128]
5100 [143] BACKTRACKING - SCHRITT ZURUECK ----------------------------------------
5101 :
5110 MZ[178]MZ[171]1   :[143] ZEIGER UM 1 ZURUECK
5120 [129]N[178]0[164]3
5125 : M(MZ[170]1,N)[178][171]1                                    :[143] IRRWEG LOESCHEN
5130 : [139]M(MZ,N)[179][177]MZ[170]1[167]5140
5134 : M(MZ,N)[178][171]2                                      :[143] IRRWEG LOESCHEN
5136 : G[178]N:[141]6000
5137 : [153]"ICH GEHE NACH "RI$(G)"."
5140 [130]N
5145 X[178]0       :[143] RESET AUF N
5147 [139]MZ[178]1[167][153]"BIN WIEDER AM EINGANG!":[151]109,0:[146]198,1:[138]
5150 [137]5000  :[143] PRUEFEN
6000 [143] GEGENBEFEHL BILDEN ----------------------------------------------------
6001 :
6010 : [139]G[178]0[167]G[178]2:[137]6080
6020 : [139]G[178]1[167]G[178]3:[137]6080
6030 : [139]G[178]2[167]G[178]0:[137]6080
6040 : [139]G[178]3[167]G[178]1:[137]6080
6080 [142]
10000 [143] LOESUNG AUSGEBEN -----------------------------------------------------
10001 :
10010 [153]"LOADDURCH FOLGENDE BEFEHLSFOLGE GELANGT MAN VOM EINGANG ZU MEINEM ";
10020 [153]"JETZIGEN STANDORT:"
10030 [129]I1[178]0[164]MZ[171]1
10040 : [129]I2[178]0[164]3
10045 :   [139]M(I1,I2)[177]0[175]M(I1,I2)[179][177]I1[171]1[167][153]RI$(I2)",";:I2[178]4
10050 : [130]I2
10060 [130]I1
10070 [153]
10080 [153]"SOLL ICH WEITERMACHEN ?"
10090 [161]I$:[139]I$[179][177]"J"[175]I$[179][177]"N"[167]10090
10095 [139]I$[178]"J"[167]1125:[143] WEITERMACHEN
10099 [128]